home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form TogBitmaps
- BackColor = &H00C0C0C0&
- BorderStyle = 1 'Fixed Single
- Caption = "Toggle Bitmap & Timer Properties"
- ClientHeight = 3540
- ClientLeft = 1800
- ClientTop = 2460
- ClientWidth = 7545
- Height = 3945
- Left = 1740
- LinkTopic = "Form2"
- MDIChild = -1 'True
- MinButton = 0 'False
- ScaleHeight = 3540
- ScaleWidth = 7545
- Top = 2115
- Width = 7665
- Begin Frame Frame3
- BackColor = &H00C0C0C0&
- Caption = "OnTimer Property"
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 915
- Left = 3810
- TabIndex = 14
- Top = 45
- Width = 3630
- Begin HScrollBar HScroll2
- Height = 255
- LargeChange = 100
- Left = 900
- Max = 10000
- Min = 50
- TabIndex = 15
- Top = 285
- Value = 2000
- Width = 2000
- End
- Begin Label Label5
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Seconds"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Left = 1515
- TabIndex = 21
- Top = 585
- Width = 645
- End
- Begin Label Label4
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "2"
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Left = 3000
- TabIndex = 16
- Top = 330
- Width = 90
- End
- Begin Label Label3
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "OnTimer:"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Left = 210
- TabIndex = 17
- Top = 300
- Width = 645
- End
- End
- Begin Frame Frame2
- BackColor = &H00C0C0C0&
- Caption = "Blink Properties"
- Height = 2400
- Left = 3810
- TabIndex = 13
- Top = 1050
- Width = 3615
- Begin Frame Frame4
- BackColor = &H00C0C0C0&
- Caption = "BlinkMode"
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 1215
- Left = 1020
- TabIndex = 22
- Top = 255
- Width = 1710
- Begin OptionButton Option1
- BackColor = &H00C0C0C0&
- Caption = "When Off"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Index = 3
- Left = 285
- TabIndex = 26
- Top = 945
- Width = 1065
- End
- Begin OptionButton Option1
- BackColor = &H00C0C0C0&
- Caption = "When On"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Index = 2
- Left = 285
- TabIndex = 25
- Top = 705
- Width = 1050
- End
- Begin OptionButton Option1
- BackColor = &H00C0C0C0&
- Caption = "Always"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Index = 1
- Left = 285
- TabIndex = 24
- Top = 480
- Width = 975
- End
- Begin OptionButton Option1
- BackColor = &H00C0C0C0&
- Caption = "Never"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Index = 0
- Left = 285
- TabIndex = 23
- Top = 240
- Value = -1 'True
- Width = 870
- End
- End
- Begin HScrollBar HScroll1
- Height = 255
- Left = 930
- Max = 1000
- Min = 50
- TabIndex = 18
- Top = 1650
- Value = 200
- Width = 2000
- End
- Begin Label Label6
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00C0C0C0&
- Caption = "Milliseconds"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Left = 1485
- TabIndex = 27
- Top = 1920
- Width = 885
- End
- Begin Label Label2
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "200"
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Left = 3000
- TabIndex = 20
- Top = 1680
- Width = 270
- End
- Begin Label Label1
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "BlinkRate:"
- FontBold = 0 'False
- FontItalic = 0 'False
- FontName = "Arial"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 210
- Left = 195
- TabIndex = 19
- Top = 1665
- Width = 705
- End
- End
- Begin Frame Frame1
- BackColor = &H00C0C0C0&
- Caption = "Toggle Bitmap Examples"
- Height = 3360
- Left = 90
- TabIndex = 0
- Top = 60
- Width = 3570
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 540
- Index = 11
- Left = 1575
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:0000
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:01CA
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 12
- Top = 2415
- TwoState = 0 'False
- Value = -1 'True
- Width = 480
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 540
- Index = 10
- Left = 1065
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:0394
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:055E
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 11
- Top = 2415
- TwoState = 0 'False
- Value = -1 'True
- Width = 480
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 540
- Index = 9
- Left = 555
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:0728
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:08F2
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 10
- Top = 2415
- TwoState = 0 'False
- Value = -1 'True
- Width = 480
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 645
- Index = 8
- Left = 1545
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:0ABC
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:0CDA
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 9
- Top = 1635
- TwoState = 0 'False
- Value = 0 'False
- Width = 420
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 645
- Index = 7
- Left = 1095
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:0EF8
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:1116
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 8
- Top = 1635
- TwoState = 0 'False
- Value = 0 'False
- Width = 420
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 645
- Index = 6
- Left = 645
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:1334
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:1552
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 7
- Top = 1635
- TwoState = 0 'False
- Value = 0 'False
- Width = 420
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 420
- Index = 5
- Left = 2370
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:1770
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:197A
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 6
- Top = 2535
- TwoState = 0 'False
- Value = -1 'True
- Width = 645
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 420
- Index = 4
- Left = 2370
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:1B84
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:1D8E
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 5
- Top = 2085
- TwoState = 0 'False
- Value = -1 'True
- Width = 645
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 420
- Index = 3
- Left = 2370
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:1F98
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:26A2
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 4
- Top = 1635
- TwoState = 0 'False
- Value = -1 'True
- Width = 645
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 420
- Index = 2
- Left = 2100
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:28AC
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:2AB6
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 3
- Top = 660
- TwoState = 0 'False
- Value = 0 'False
- Width = 720
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 720
- Index = 1
- Left = 1620
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:2CC0
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:2F1A
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 2
- Top = 480
- TwoState = 0 'False
- Value = 0 'False
- Width = 420
- End
- Begin TOGGLE Toggle1
- AutoSize = -1 'True
- AVersion = 2.5
- BackColor = &H00C0C0C0&
- BevelInner = 0 ' 0 - None
- BevelOuter = 2 ' 2 - Inset
- BevelWidth = 2
- BlinkMode = 0 ' 0 - Never
- BlinkRate = 200
- BorderWidth = 2
- Height = 540
- Index = 0
- Left = 840
- MouseControl = -1 'True
- OffBackColor = &H00C0C0C0&
- OffCaption = "Off"
- OffForeColor = &H00000000&
- OffPicture = TOGBITMA.FRX:3174
- OffWave = ""
- OffX = 0
- OffY = 0
- OnBackColor = &H00C0C0C0&
- OnCaption = "On"
- OnForeColor = &H00000000&
- OnPicture = TOGBITMA.FRX:33AE
- OnTimer = 0
- OnWave = ""
- OnX = 0
- OnY = 0
- Outline = 0 'False
- OutlineColor = &H00000000&
- PushX = 0
- PushY = 0
- Sound = 0 'False
- TabIndex = 1
- Top = 600
- TwoState = 0 'False
- Value = -1 'True
- Width = 540
- End
- End
- Sub Form_Load ()
- option1(2) = True
- For i = 0 To 11
- toggle1(i).BlinkMode = 2
- Next
- End Sub
- Sub HScroll1_Change ()
- label2 = hscroll1
- For i = 0 To 11
- toggle1(i).BlinkRate = hscroll1
- Next
- End Sub
- Sub HScroll1_Scroll ()
- label2 = hscroll1
- For i = 0 To 11
- toggle1(i).BlinkRate = hscroll1
- Next
- End Sub
- Sub HScroll2_Change ()
- If hscroll2 >= 1000 Then
- label4 = hscroll2 / 1000
- label5 = "Seconds"
- Else
- label4 = hscroll2
- label5 = "Milliseconds"
- End If
- For i = 0 To 11
- toggle1(i).OnTimer = hscroll2
- Next
- End Sub
- Sub HScroll2_Scroll ()
- If hscroll2 >= 1000 Then
- label4 = hscroll2 / 1000
- label5 = "Seconds"
- Else
- label4 = hscroll2
- label5 = "Milliseconds"
- End If
- For i = 0 To 11
- toggle1(i).OnTimer = hscroll2
- Next
- End Sub
- Sub Option1_Click (index As Integer)
- For i = 0 To 11
- toggle1(i).BlinkMode = index
- Next
- End Sub
-